home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Icon.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  769b  |  47 lines
  1. Unit Icon;
  2.  
  3. Interface
  4. Uses Workbench, Exec;
  5.  
  6. Type
  7.   pDiskObject = ^tDiskObject;
  8.   pFreeList = ^tFreeList;
  9.   pLibrary = ^tLibrary;
  10.  
  11.  
  12. Var
  13.   IconBase: pLibrary;
  14.  
  15.  
  16. Const
  17.   ICONNAME = 'icon.library';
  18.  
  19.  
  20. Procedure FreeFreeList (freelist: pFreeList);
  21. Function AddFreeList
  22.          (freelist: pFreeList;
  23.           mem: Pointer;
  24.           size: LongInt): Boolean;
  25.  
  26. Function GetDiskObject (name: String): pDiskObject;
  27. Function PutDiskObject
  28.          (name: String;
  29.           diskobj: pDiskObject): Boolean;
  30.  
  31. Procedure FreeDiskObject (diskobj: pDiskObject);
  32. Function FindToolType
  33.          (toolTypeArray: ppShortInt;
  34.           typeName: String): pShortInt;
  35.  
  36. Function MatchToolValue
  37.          (typeString: pShortInt;
  38.           value: String): Boolean;
  39.  
  40. Function BumpRevision
  41.          (newname: String;
  42.           oldname: String): pShortInt;
  43.  
  44.  
  45.  
  46. End.
  47.